home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / gourmandise_100 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  93 lines
  1. 1 REM A-MAZE-ING
  2. 100 DIMRT(3),NT%(16,1,1),JT%(10,1):RT(0)=2:RT(1)=-80:RT(2)=-2:RT(3)=80:LS=40
  3. 110 VC=53248:POKEVC+32,6:POKEVC+33,1:PRINTCHR$(147)
  4. 120 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX
  5. 130 M=((PEEK(53272)AND240)/16)*1024
  6. 140 C=55296
  7. 200 FORW=0TO1:X=0
  8. 210 READY,Z:NT%(X,W,0)=Y:NT%(X,W,1)=Z:X=X+1:IFY<>0THEN210
  9. 220 NEXTW:FORW=0TO10:FOR Y=0TO1:READZ:JT%(W,Y)=Z:NEXTY,W
  10. 300 PRINT"[147]               GOURMANDISE[146]"
  11. 305 PRINT"    PROMENEZ-VOUS DANS LE LABYRINTHE"
  12. 310 PRINT"''POMMIER''  POUR MANGER LES 100 POMMES."
  13. 315 PRINT"    UTILISER LA MANETTE DANS LE"
  14. 320 PRINT"     ***CONTROL PORT   1   ***"
  15. 325 PRINT" VOUS AVEZ 2 MINUTES POUR LES DEVORER"
  16. 330 PRINT" TOUTES, OU PRESSER F1[146] POUR ABANDONNER."
  17. 335 PRINT" IL EST POSSIBLE QUE VOUS NE PUISSIEZ"
  18. 340 PRINT" ATTEINDRE TOUTES LES POMMES..."
  19. 345 PRINT" PESER SUR LE BOUTON FEU[146] POUR COMMENCER"
  20. 350 X=0:GOSUB9500
  21. 360 GETX$:IF X$=""THEN360
  22. 370 GOSUB9000:FORW=1TO100:GOSUB8500:POKEM+X,81:POKEC+X,2:NEXTW
  23. 380 GOSUB8500:POKEM+X,86:POKEC+X,4
  24. 390 R1=INT(X/LS):C1=X-(R1*LS):TI$="000000":AC=0
  25. 400 C2=C1:R2=R1
  26. 410 GOSUB8000:IFC1=C2ANDR1=R2THEN410
  27. 420 IFC2<0THENC2=0
  28. 430 IFC2>39THENC2=39
  29. 440 IFR2<0THENR2=0
  30. 450 IFR2>24THENR2=24
  31. 460 X=PEEK(M+(R2*LS)+C2)
  32. 470 IF X<>32ANDX<>81THEN400
  33. 480 OD=(R1*LS)+C1:ND=(R2*LS)+C2:IFX=81THEN600
  34. 500 POKEM+OD,32:POKEC+OD,1:POKEM+ND,86:POKEC+ND,4
  35. 510 C1=C2:R1=R2:GOTO410
  36. 600 POKEMC+0,0:POKEMC+1,0:POKEMC+5,15:POKEMC+6,15:POKEMC+4,129:POKEMC+24,5
  37. 610 FORY=40TO60STEP5:POKEMC+1,Y:FORW=1TO5:NEXTW,Y
  38. 615 POKEMC+4,128:POKEMC+24,0
  39. 617 POKEM+ND,86:POKEC+ND,4
  40. 620 POKEM+OD,32:POKEC+OD,1
  41. 640 C1=C2:R1=R2:AC=AC+1
  42. 650 IFAC>99THENGOTO800
  43. 660 Y=(PEEK(VC+32)AND15)+1:IFY>15THENY=2
  44. 670 POKEVC+32,Y
  45. 680 GOTO410
  46. 800 POKEVC+32,6:PRINT"[147]              GOURMANDISE[146]"
  47. 810 PRINT"      VOUS AVEZ MANGE";AC;"POMMES."
  48. 820 PRINT"        VOTRE MOYENNE EST";AC;"[157]%":W=INT(TI/60):X=INT(W/60)
  49. 830 Y=W-(X*60):X$=STR$(X):Y$=RIGHT$(X$,1)+".":IFY<10THENY=Y+100
  50. 840 X$=STR$(Y):Y$=Y$+RIGHT$(X$,2):PRINT"        VOTRE TEMPS EST ";Y$
  51. 850 X=1:GOSUB9500
  52. 860 PRINT"[144]           VOUS JOUEZ ENCORE? (OUI[146] /NON[146])"
  53. 870 GETX$:IFX$=""THEN870
  54. 880 IFX$="O"THEN370
  55. 890 IFX$<>"N"THEN870
  56. 900 X=0:GOSUB9500:PRINTCHR$(147)
  57. 910 END
  58. 8000 IFTI$>="000200"ORPEEK(197)=4THEN800
  59. 8010 J1=15-(PEEK(56321)AND15)
  60. 8020 R2=R2+JT%(J1,0)
  61. 8030 C2=C2+JT%(J1,1)
  62. 8040 RETURN
  63. 8500 X=INT(RND(1)*1000):IFPEEK(M+X)<>32THEN8500
  64. 8510 RETURN
  65. 9000 POKEMC+0,0:POKEMC+1,0:POKEMC+5,15:POKEMC+6,15:POKEMC+24,5
  66. 9005 PRINTCHR$(147);"[144]";:X$="                                       [146]"
  67. 9010 FORX=1TO24:PRINTX$;" [146]";:NEXTX:PRINTX$;:POKEM+999,160:POKEC+999,0
  68. 9020 X=M+81:POKEX,4
  69. 9030 Y=INT(4*RND(1)):Z=Y:POKEMC+1,INT(RND(1)*10)+10:POKEMC+4,17
  70. 9040 W=X+RT(Y):IFPEEK(W)=160THENPOKEW,Y:POKEX+RT(Y)/2,32:X=W:GOTO9030
  71. 9045 POKEMC+4,16
  72. 9050 Y=Y+1:IFY>3THENY=0
  73. 9060 IFY<>ZTHEN9040
  74. 9070 Y=PEEK(X):POKEX,32
  75. 9080 IF Y<4THENX=X-RT(Y):GOTO9030
  76. 9090 POKEMC+24,0:FORX=0TO999:IFPEEK(M+X)<>160THENPOKE(M+X),32
  77. 9100 NEXTX:RETURN
  78. 9500 POKEMC+0,0:POKEMC+1,0:POKEMC+5,79:POKEMC+6,129:POKEMC+24,15:Y=0
  79. 9510 W=INT(NT%(Y,X,0)/256)
  80. 9520 POKEMC+0,NT%(Y,X,0)-(W*256)
  81. 9530 POKEMC+1,W:POKEMC+4,17
  82. 9540 FORW=1TONT%(Y,X,1)*100:NEXTW
  83. 9550 POKEMC+4,16:FORW=1TO20:NEXTW
  84. 9560 IFNT%(Y,X,0)<>0THENY=Y+1:GOTO9510
  85. 9570 POKEMC+24,0
  86. 9580 RETURN
  87. 10000 DATA6430,2,6430,2,6430,2,4817,2,5407,2,5407,2,4817,4,8101,2
  88. 10010 DATA8101,2,7217,2,7217,2,6430,4,0,0
  89. 10020 DATA6430,2,6430,2,7217,2,5728,2,6430,1,7217,2,8101,2,8101,2
  90. 10030 DATA8583,2,8101,2,7217,1,6430,2,8583,2
  91. 10040 DATA6430,2,5728,2,6430,8,0,0
  92. 10500 DATA0,0,-1,0,1,0,0,0,0,-1,-1,-1,1,-1,0,0,0,1,-1,1,1,1
  93.